program test(input, output);
var i:integer;
    a:array[1..10] of integer;
procedure swap(var a,b:integer);
var tmp:integer;
begin
    tmp:=a;
    a:=b;
    b:=tmp;
end;
procedure bubbleSort;
var i,j:integer;
begin
    for i:= 1 to 10 do
    begin
        j:=i+1;
        while j <= 10 do
        begin
            if a[i]>a[j] then
                swap(a[i],a[j]);
            j:=j+1;
        end
    end;
end;
begin
    i:=1;
    repeat
    begin
        read(a[i]);
        i:=i+1
    end
    until i=11;
    bubbleSort;
    for i:= 1 to 10 do
        writeln(a[i]);
end.